## Registered S3 method overwritten by 'httr':
## method from
## print.response rmutil
Crear una muestra aleatoria de tamaño 120
#primero leemos el excel y lo guardamos en un data frame en este caso :
Blackfriday=data.frame(read_xlsx("C:/Users/alejo/Desktop/Blackfriday.xlsx"))
#Despues establecemos el tamaño de la muestra y con ese tamaño usamos la funcion sample :
n=120
muestra=sample(1:nrow(Blackfriday),size=n,replace=FALSE)
#Finalmente relacionamos nuestra muestra con los datos obtenidos del excel:
datosfinales = Blackfriday[muestra, ]
datosfinalesvalores= datosproblema$Freq
nombres_porcentajes=c("Mujer","Hombre")
porcentajes <- (valores / sum(valores)) * 100
colores <- c("#3498db", "#e74c3c")
plot_ly(labels = nombres_porcentajes, values = porcentajes, type = "pie",
textinfo = "label+percent", text = datosproblema$Var1 , marker = list(colors = colores)) %>%
layout(title = list(font="Porcentajes Entre Hombre y Mujer"),
showlegend = FALSE, # Ocultar la leyenda
margin = list(l = 20, r = 0, b = 0, t = 30), # Ajustar márgenes
paper_bgcolor = "white", # Fondo blanco
plot_bgcolor = "white", # Fondo blanco
font = list(family = "Arial", size = 14), # Fuente y tamaño de texto
titlefont = list(size = 18), # Tamaño del título
annotations = list(text = "Fuente: Datos de ejemplo", showarrow = FALSE,
x = 0.8, y = -0.15)) # Nota de fuente## Warning: The titlefont attribute is deprecated. Use title = list(font = ...)
## instead.
valores= datosproblema$Freq
nombres_porcentajes=c("CITY A","CITY B","CITY C")
porcentajes <- (valores / sum(valores)) * 100
colores <- c("#BFCDFF", "#E4FFBF","#B8FFD9")
plot_ly(labels = nombres_porcentajes, values = datosproblema$Freq, type = "pie",
textinfo = "label+percent", text = datosproblema$Var1 , marker = list(colors = colores)) %>%
layout(title = list(font="Porcentajes de ciudades en la muestra"),
showlegend = FALSE, # Ocultar la leyenda
margin = list(l = 20, r = 0, b = 0, t = 30), # Ajustar márgenes
paper_bgcolor = "white", # Fondo blanco
plot_bgcolor = "white", # Fondo blanco
font = list(family = "Arial", size = 14), # Fuente y tamaño de texto
titlefont = list(size = 18), # Tamaño del título
annotations = list(text = "Fuente: Datos de ejemplo", showarrow = FALSE,
x = 0.8, y = -0.15)) # Nota de fuente## Warning: The titlefont attribute is deprecated. Use title = list(font = ...)
## instead.
datosproblema=datosfinales$Income
Media_Datos=median(datosproblema)
Moda=mfv(datosproblema)
Promedio=mean(datosproblema)
Moda## [1] 12289 15865
#hist(datosproblema)
g1 = ggplot(data = data.frame(datosproblema),mapping = aes(x = datosproblema)) +
geom_histogram(bins = 20,colour="white",fill="#FFEA89")+
labs(title = "Histograma income", y ="Cantidad") +
geom_vline(aes(xintercept= Promedio ,color ="MEDIA"),linetype = "dashed",linewidth = 0.5) +
geom_vline(aes(xintercept= Media_Datos,color = "MEDIANA"),linetype = "dashed",linewidth = 1) +
scale_color_manual(name = "Informacion",values = c(MEDIANA ="blue" ,MEDIA = "red",MODA ="purple"))
g1